use Tk;
# 设置utf-8编码
use utf8;

my $mw = MainWindow->new(-title => "测试窗口");

# 设置窗口大小 800x600
$mw->geometry("800x600");

# 创建一个按钮，点击弹窗提示 你好
$mw->Button(-text => "点击弹窗提示", -command => sub { $mw->messageBox(-message => "你好") })->pack();

# 创建一个标签，显示 这是一个标签
$mw->Label(-text => "这是一个标签")->pack();

# 创建一个按钮，点击弹窗提示 你好
$mw->Button(-text => "点击弹窗提示", -command => sub { $mw->messageBox(-message => "你好") })->pack();
$mw->Button(-text => "这是一个按钮，点击退出", -command => sub { exit })->pack();

# 创建一个时间显示框，时间格式为 年-月-日 时:分:秒
$mw->Label(-text => "当前时间：")->pack();

# 先声明并初始化 $time 变量，避免 "Name used only once" 警告
use Time::Piece;
my $time = localtime->strftime("%Y-%m-%d %H:%M:%S");
$mw->Label(-textvariable => \$time)->pack();

# 创建一个文本框，文本框内容为hello，world
my $name_var = "hello，world";
$mw->Entry(-width => 20, -textvariable => \$name_var)->pack();

# 创建一个文本区域
MainLoop;
